//CPW08801 JOB 'CPW088,50,1000,ID=HARVARD'
// PASSWORD CUMMINGS,CUMMINGS
//STEP1 EXEC PL1
   HOPE:PROC OPTIONS(MAIN) ;
    DCL (A,B,C,D) DEC FLOAT ;
    GET LIST (L) ;
 DO K=1 TO L ;
    GET LIST (A,B,C) ;
    IF A=0.0 THEN 
      PUT EDIT ('LINEINER EQUATION''X''INTERSEPT  ', -C/B)
        (X(5),A, F(10,4)) ;
     ELSE DO ;
                D=B**2-4.0*A*C ;
                IF D<0.0 THEN PUT EDIT (A,B,C,-B/2.0*A,' (+-)I ',
                          SQRT(ABS(D))/2.0*A)
                    ((3)(X(5), F(10,4)),X(5), 
                         F(10,4), A, F(10,4));
                    ELSE PUT EDIT (A,B,C, (-B+SQRT(D))/2.0*A,
                       (-B-SQRT(D))/2.0*A)
                 ((3)(X(5),F(10,4)),X(5),(2)(X(4),F(10,4)));
            END ;
  END ;
  END HOPE ;
//GO.SYSIN DD *
5,0.0,13.0,6.0,1.0,4.0,4.0,1.0,0.0,-4.0,1.0,0.0,4.0,19.0,70.0,3.0
/*
//